(quail-show-translations): Show

followable keys in alphabetic order.

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index c019586133cacc1240556bfbc0ae83c6f232dab4..c36f022796d3d5a6c31f6138db119de61522cae7 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -1600,11 +1600,13 @@ or in a newly created frame (if the selected frame has no other windows)."
 
       ;; Show followable keys.
       (if (cdr map)
-         (let ((l (cdr map)))
+         (let ((keys (mapcar (function (lambda (x) (car x)))
+                             (cdr map))))
+           (setq keys (sort keys '<))
            (insert "[")
-           (while l
-             (insert (car (car l)))
-             (setq l (cdr l)))
+           (while keys
+             (insert (car keys))
+             (setq keys (cdr keys)))
            (insert "]")))
 
       ;; Show list of translations.